Define CharList
 ( 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P',
   'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', 'a', 'b', 'c', 'd', 'e', 'f',
   'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v',
   'w', 'x', 'y', 'z', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '~', '`',
   '!', '@', '#', '$', '%', '^', '&', '*', '(', ')', '-', '_', '=', '+', '[', '{',
   ']', '}', ';', ':',"'", '"', ',', '<', '.', '>', '/', '?');

Define WidthList
 (   9,   9,   10,  10,   8,   7,  11,  11,   4,   7,   9,   7,  13,  11,  11,   9,
    11,   9,   8,   7,  11,   9,  14,   9,   8,   8,   9,   9,   8,   9,   9,   5,
     9,   9,   4,   4,   8,   4,  13,   9,   9,   9,   9,   6,   7,   5,   9,   7,
    11,   7,   7,   7,  10,   5,   8,   8,   9,   8,   8,   8,   8,   8,  13,   8,
     4,  15,  12,   8,  10,  15,  10,   8,   5,   5,   6,   8,  13,  13,   5,   8,
     5,   8,   3,   3,   3,   5,   3,  13,   3,  13,   6,   8);

Define RectList
 ( (   0,  0,  9, 19), (  10,  0,  8, 19), (  19,  0,  9, 19), (  29,  0,  9, 19),
   (  39,  0,  6, 19), (  46,  0,  6, 19), (  53,  0, 10, 19), (  64,  0,  9, 19),
   (  74,  0,  2, 19), (  77,  0,  6, 19), (  84,  0,  9, 19), (  94,  0,  6, 19),
   ( 101,  0, 12, 19), ( 114,  0,  9, 19), ( 124,  0, 10, 19), ( 135,  0,  8, 19),
   ( 144,  0, 10, 19), ( 155,  0,  8, 19), ( 164,  0,  7, 19), ( 172,  0,  8, 19),
   ( 181,  0,  9, 19), ( 191,  0,  9, 19), ( 201,  0, 14, 19), ( 216,  0,  9, 19),
   ( 226,  0,  8, 19), ( 235,  0,  8, 19), ( 244,  0,  8, 19), ( 253,  0,  8, 19),
   ( 262,  0,  7, 19), ( 270,  0,  8, 19), ( 279,  0,  8, 19), ( 288,  0,  5, 19),
   ( 294,  0,  8, 19), ( 303,  0,  7, 19), ( 311,  0,  2, 19), ( 314,  0,  2, 19),
   ( 317,  0,  7, 19), ( 325,  0,  2, 19), ( 328,  0, 12, 19), ( 341,  0,  7, 19),
   ( 349,  0,  8, 19), ( 358,  0,  8, 19), ( 367,  0,  8, 19), ( 376,  0,  5, 19),
   ( 382,  0,  6, 19), ( 389,  0,  6, 19), ( 396,  0,  7, 19), ( 404,  0,  7, 19),
   ( 412,  0, 11, 19), ( 424,  0,  8, 19), ( 433,  0,  7, 19), ( 441,  0,  7, 19),
   ( 449,  0,  9, 19), ( 459,  0,  4, 19), ( 464,  0,  7, 19), ( 472,  0,  8, 19),
   ( 481,  0,  9, 19), ( 491,  0,  7, 19), ( 499,  0,  8, 19), ( 508,  0,  7, 19),
   ( 516,  0,  8, 19), ( 525,  0,  8, 19), ( 534,  0,  9, 19), ( 544,  0,  3, 19),
   ( 548,  0,  2, 19), ( 551,  0, 14, 19), ( 566,  0, 11, 19), ( 578,  0,  7, 19),
   ( 586,  0, 10, 19), ( 597,  0,  9, 19), ( 607,  0, 10, 19), ( 618,  0,  5, 19),
   ( 624,  0,  3, 19), ( 628,  0,  3, 19), ( 632,  0,  5, 19), ( 638,  0,  8, 19),
   ( 647,  0,  9, 19), ( 657,  0,  9, 19), ( 667,  0,  4, 19), ( 672,  0,  6, 19),
   ( 679,  0,  4, 19), ( 684,  0,  6, 19), ( 691,  0,  3, 19), ( 695,  0,  2, 19),
   ( 698,  0,  1, 19), ( 700,  0,  3, 19), ( 704,  0,  3, 19), ( 708,  0,  9, 19),
   ( 718,  0,  2, 19), ( 721,  0,  9, 19), ( 731,  0,  7, 19), ( 739,  0,  7, 19));

Define OffsetList
 ( ( 0, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0),
   ( 1, 0), ( 0, 0), ( 1, 0), ( 1, 0), ( 0, 0), ( 1, 0), ( 1, 0), ( 1, 0),
   ( 1, 0), ( 1, 0), ( 1, 0), (-1, 0), ( 1, 0), ( 0, 0), ( 0, 0), ( 0, 0),
   ( 0, 0), ( 0, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 0, 0),
   ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0),
   ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0), (-1, 0), ( 1, 0), ( 0, 0),
   ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0),
   ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 1, 0), ( 2, 0),
   ( 1, 0), ( 1, 0), ( 0, 0), ( 0, 0), ( 0, 0), ( 3, 0), ( 1, 0), ( 2, 0),
   ( 1, 0), ( 1, 0), ( 1, 0), ( 0, 0), ( 2, 0), ( 2, 0), ( 1, 0), ( 1, 0),
   ( 0, 0), ( 1, 0), (-1, 0), ( 0, 0), ( 1, 0), ( 1, 0), (-1, 0), ( 2, 0),
   ( 0, 0), ( 2, 0), (-1, 0), ( 1, 0));

Define KerningPairs
 ("-T","-V","-W","-X","-Y","AT","AY","BY","CA","F,","F.","F:","F;","FA","K-","KY",
  "LO","LT","LV","LY","Ly","P,","P.","PA","T,","T-","T.","TA","Ta","Tc","Te","To",
  "Tr","Ts","Tu","Tw","Ty","V,","V-","V.","V:","V;","Va","Ve","Vo","W,","W-","W.",
  "Wa","We","Wo","X-","Y,","Y-","Y.","Y:","Y;","YA","Ya","Ye","Yo","Yu","r,","r.",
  "v,","v.","v:","v;","w,","w.","w:","w;","y,","y.","y:","y;","LO","LT","LV","LY",
  "Ly");

Define KerningValues

 (  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,   1,  -2,  -2,  -1,  -1,  -1,  -1,  -1,

    -1,  -1,  -1,  -2,  -1,  -3,  -3,  -1,  -2,  -2,  -2,  -1,  -1,  -1,  -1,  -1,

    -1,  -1,  -1,  -1,  -1,  -2,  -1,  -2,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,

    -1,  -1,  -1,  -1,  -2,  -2,  -2,  -2,  -2,  -1,  -1,  -1,  -1,  -1,  -1,  -1,

    -1,  -1,   1,   1,  -1,  -1,   1,   1,  -1,  -1,   1,   1,  -1,  -1,  -1,  -2,

    -1);

CreateLayer               Main;
LayerSetImage             Main 'VAGRoundedBT11';
LayerSetAscent            Main 15;
LayerSetCharWidths        Main CharList WidthList;
LayerSetCharWidths        Main (' ') (5);
LayerSetKerningPairs      Main KerningPairs KerningValues;
LayerSetImageMap          Main CharList RectList;
LayerSetCharOffsets       Main CharList OffsetList;
LayerSetAscentPadding     Main 0;
LayerSetLineSpacingOffset Main 0;
LayerSetPointSize         Main 11;

SetDefaultPointSize  11;
